home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1989 January / Ahoy_Magazine_89-01_1989_Double_L.d64 / Whirlpool C-64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  34 lines
  1. 10 rem whirlpool- c64/(c) 1988
  2. 20 rem by jeffrey d. panici
  3. 25 rem to startsys49152 to stopsys49155
  4. 30 rem loader
  5. 40 ck=.:printchr$(147):forc=49152to49342:readd:pokec,d
  6. 41 ck=ck+d:print"loading ";ck:next
  7. 42 ifck<>16666thenprint"error!!! in data..":end
  8. 45 print"sys 49152 to start sys 49155 to stop.":end
  9. 50 rem ml data
  10. 55 data 76,49,192,76,112,192,0,0
  11. 60 data 1,2,3,4,5,6,7,7
  12. 70 data 7,7,7,6,5,4,3,2
  13. 80 data 1,0,0,0,4,5,6,7
  14. 90 data 7,7,7,6,5,4,3,2
  15. 100 data 1,0,0,0,0,1,2,3
  16. 110 data 4,120,169,88,141,20,3,169
  17. 120 data 192,141,21,3,169,1,141,26
  18. 130 data 208,169,0,141,18,208,173,17
  19. 140 data 208,41,119,141,17,208,173,22
  20. 150 data 208,41,247,141,22,208,88,96
  21. 160 data 173,25,208,41,1,240,11,169
  22. 170 data 1,141,25,208,32,150,192,76
  23. 180 data 49,234,104,168,104,170,104,64
  24. 190 data 120,169,128,141,26,208,169,49
  25. 200 data 141,20,3,169,234,141,21,3
  26. 210 data 173,22,208,41,240,9,8,141
  27. 220 data 22,208,173,17,208,41,240,9
  28. 230 data 11,141,17,208,88,96,174,6
  29. 240 data 192,173,22,208,41,248,29,7
  30. 250 data 192,141,22,208,173,17,208,41
  31. 260 data 248,29,28,192,141,17,208,238
  32. 270 data 6,192,173,6,192,201,21,144
  33. 280 data 5,169,0,141,6,192,96
  34.